Option Explicit
Sub B_Sample002()
    Dim myRng As Range
    Set myRng = Range("A1")			'Nxs
    With myRng
        .Clear						'xs檺M
        .Value = "12345"				']w
        .NumberFormatLocal = "\#,##0"		']w榡
        'ǳƨ즹
        MsgBox "xs" & .Address & "ܦrꬰ" & .Text & "C"
    End With
    Set myRng = Nothing				'
End Sub	
